home *** CD-ROM | disk | FTP | other *** search
/ Merciful 2 / Merciful - Disc 2.iso / software / i / imagefxv2.1a.lha / ImageFX / Rexx / AutoFX / EOT_Perspective.ifx.pre < prev    next >
Text File  |  1996-03-02  |  1KB  |  53 lines
  1. /*
  2.  * Perspective.ifx.pre
  3.  * Written by Thomas Krehbiel
  4.  *
  5.  * Perspective Rotation.
  6.  *
  7.  * Inputs:
  8.  *    Word(Arg(1),1) = Sequence number (?)
  9.  *    Word(Arg(1),2) = Total number of frames (N)
  10.  *
  11.  * Returns:
  12.  *    0 if successful, non-zero on failure
  13.  *
  14.  */
  15.  
  16. OPTIONS RESULTS
  17.  
  18. base  = 'Autofx_Perspective_'
  19.  
  20. x1    = GETCLIP(base||'x1')
  21. y1    = GETCLIP(base||'y1')
  22. z1    = GETCLIP(base||'z1')
  23. x2    = GETCLIP(base||'x2')
  24. y2    = GETCLIP(base||'y2')
  25. z2    = GETCLIP(base||'z2')
  26.  
  27. IF x1 = "" THEN x1 = 0
  28. IF y1 = "" THEN y1 = 0
  29. IF z1 = "" THEN z1 = 0
  30. IF x2 = "" THEN x2 = 45
  31. IF y2 = "" THEN y2 = 45
  32. IF z2 = "" THEN z2 = 0
  33.  
  34. Gadget.1 = 'INTEGER 200  5 50 14 "Starting Rotation X:"' x1
  35. Gadget.2 = 'INTEGER 280  5 50 14 "Y:"' y1
  36. Gadget.3 = 'INTEGER 360  5 50 14 "Z:"' z1
  37. Gadget.4 = 'INTEGER 200 20 50 14 "Ending Rotation X:"' x2
  38. Gadget.5 = 'INTEGER 280 20 50 14 "Y:"' y2
  39. Gadget.6 = 'INTEGER 360 20 50 14 "Z:"' z2
  40. Gadget.7 = 'END'
  41.  
  42. NewComplexRequest '"Perspective Rotation"' Gadget 430 50
  43. IF rc ~= 0 THEN EXIT rc
  44.  
  45. CALL SETCLIP(base||'x1', result.1)
  46. CALL SETCLIP(base||'y1', result.2)
  47. CALL SETCLIP(base||'z1', result.3)
  48. CALL SETCLIP(base||'x2', result.4)
  49. CALL SETCLIP(base||'y2', result.5)
  50. CALL SETCLIP(base||'z2', result.6)
  51.  
  52. EXIT
  53.